* Code for JEPS replication files
* October 8, 2015
* Cooperating With the State: Evidence from Survey Experiments on Policing

clear
use "CWTS prepared data.dta"

**********************************************************************************
* TABLE 4: Regression results for SE1 ********************************************
**********************************************************************************

reg full1 beating
outreg2 using "regressiontable1.tex", replace tex dec(2)
reg full1 stranger 
outreg2 using "regressiontable1.tex", append tex dec(2)
reg full1 beating stranger strangerXbeating
outreg2 using "regressiontable1.tex", append tex dec(2)
reg full1 beating age male material edu contact_any crimein12mo polstaknow newmoscow russian
outreg2 using "regressiontable1.tex", append tex dec(2)
reg full1 stranger age male material edu contact_any crimein12mo polstaknow newmoscow russian
outreg2 using "regressiontable1.tex", append tex dec(2)
reg full1 beating stranger strangerXbeating age male material edu contact_any crimein12mo polstaknow newmoscow russian
outreg2 using "regressiontable1.tex", append tex dec(2)

**********************************************************************************
* TABLE 5: Regression results for SE2 ********************************************
**********************************************************************************

reg full5 duty 
outreg2 using "regressiontable2.tex", replace tex dec(2)
reg full5 reward
outreg2 using "regressiontable2.tex", append tex dec(2)
reg full5 duty reward dutyXreward
outreg2 using "regressiontable2.tex", append tex dec(2)
reg full5 duty age male material edu contact_any crimein12mo polstaknow newmoscow russian
outreg2 using "regressiontable2.tex", append tex dec(2)
reg full5 reward age male material edu contact_any crimein12mo polstaknow newmoscow russian
outreg2 using "regressiontable2.tex", append tex dec(2)
reg full5 duty reward dutyXreward age male material edu contact_any crimein12mo polstaknow newmoscow russian
outreg2 using "regressiontable2.tex", append tex dec(2)

**********************************************************************************
* TABLE 6: Regression results for SE3 ********************************************
**********************************************************************************

reg full2 busy 
outreg2 using "regressiontable3.tex", replace tex dec(2)
reg full2 highval
outreg2 using "regressiontable3.tex", append tex dec(2)
reg full2 busy highval busyXhighval
outreg2 using "regressiontable3.tex", append tex dec(2)
reg full2 busy age male material edu contact_any crimein12mo polstaknow newmoscow russian
outreg2 using "regressiontable3.tex", append tex dec(2)
reg full2 highval age male material edu contact_any crimein12mo polstaknow newmoscow russian
outreg2 using "regressiontable3.tex", append tex dec(2)
reg full2 busy highval busyXhighval age male material edu contact_any crimein12mo polstaknow newmoscow russian
outreg2 using "regressiontable3.tex", append tex dec(2)


**********************************************************************************
* TABLE A4: Treatment assignment for SE1 *****************************************
**********************************************************************************

tab beating stranger if full1!=.

label variable beating "Beating"
label variable stranger "Stranger"
label define beating 1 "Beating" 0 "Stealing"
label values beating beating
label define stranger 1 "Stranger" 0 "Police officer"
label values stranger stranger

latab beating stranger, tf("q1_treatments_assigned") replace

**********************************************************************************
* TABLE A5: Treatment assignment for SE2 *****************************************
**********************************************************************************

tab duty reward if full5!=.

label variable duty "Duty"
label variable reward "Reward"
label define duty 1 "Civic-duty frame" 0 "No civic-duty frame"
label values duty duty
label define reward 1 "Reward" 0 "No reward"
label values reward reward

latab duty reward, tf("q2_treatments_assigned") replace

**********************************************************************************
* TABLE A6: Treatment assignment for SE3 *****************************************
**********************************************************************************

tab busy highval if full2!=.

label variable busy "Busy"
label variable highval "High value"
label define busy 1 "Busy frame" 0 "No busy frame"
label values busy busy
label define highval 1 "High-value robbery" 0 "Low-value robbery"
label values highval highval

latab busy highval, tf("q3_treatments_assigned") replace


